#!/usr/bin/perl -w # useful for syntax highlighting

package clreqd_modules;

use clutils qw(availnodes);

# Here we are passed the name of the application and we
# return the value from the nextnode function...

sub get_node_list {
my %ARGS=@_;

	my ($ok,$nlist)=availnodes($ARGS{APPLICATION});
	if(! $ok) {
		return "FAIL $nlist";
	}
	return "OK " . join(",",@$nlist);
}

1;

